﻿Define CharList
(
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '!', '&', "'", '"', ',', '.', '?', '¡', '¿', 'À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î', 'Ï', 'Ð', 'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'ß', 'à', 'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î', 'ï', 'ð', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 'ÿ', '第', '章', '结', '尾', '粘', '黏', '球', '的', '山', '岗', '世', '界', '小', '姐', '南', '方', '工', '厂', '末', '端', '信', '息', '高', '速', '公', '路', '司', '园', '完', '成', '节', '我', '虚', '拟', '塔', '纪', '念', '和', '游', '乐', '中', '心', '每', '一', '关', '多', '收', '集', '会', '发', '送', '到', '这', '里', '如', '果', '你', '经', '常', '和', '它', '们', '玩', '则', '可', '能', '有', '好', '事', '生', '不', '倒', '翁', '向', '上', '走', '峡', '谷', '下', '荡', '刺', '穿', '飞', '行', '机', '器', '春', '藤', '之', '抽', '水', '站', '大', '桥', '颂', '歌', '沼', '泽', '链', '子', '遗', '传', '验', '证', '红', '地', '毯', '美', '人', '与', '电', '线', '杆', '笛', '跳', '管', '道', '口', '火', '温', '泉', '过', '滤', '学', '暴', '风', '天', '校', '起', '来', '吧', '家', '伙', '顺', '流', '而', '二', '手', '烟', '轴', '必', '须', '爆', '了', '那', '个', '头', '雾', '骨', '三', '轮', '锁', '超', '级', '保', '险', '丝', '垃', '圾', '焚', '产', '品', '运', '烧', '场', '挑', '战', '时', '刻', '热', '气', '纵', '输', '标', '革', '新', '委', '员', '文', '观', '测', '告', '系', '统', '葡', '萄', '病', '毒', '图', '形', '处', '理', '单', '元', '障', '优', '错', '误', '晚', '服', '务', '农', '饲', '解', '救', '数', '据', '脑');

Define WidthList
(
55, 43, 41, 41, 35, 35, 41, 44, 24, 42, 44, 34, 61, 42, 44, 44, 44, 43, 41, 39, 49, 46, 61, 47, 45, 36, 46, 37, 34, 35, 30, 29, 36, 36, 17, 36, 38, 29, 53, 36, 37, 38, 37, 38, 35, 34, 43, 40, 53, 40, 39, 32, 44, 24, 40, 42, 41, 40, 43, 32, 48, 44, 23, 44, 20, 40, 21, 21, 40, 23, 40, 55, 55, 55, 55, 55, 55, 61, 41, 35, 35, 35, 35, 24, 24, 24, 24, 41, 42, 44, 44, 44, 44, 44, 44, 49, 49, 49, 49, 45, 43, 46, 46, 46, 46, 46, 46, 53, 34, 30, 30, 30, 30, 17, 17, 17, 17, 37, 36, 37, 37, 37, 37, 37, 37, 43, 43, 43, 43, 39, 39, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89);

Define RectList
(
(0,0,58,98), (59,0,44,98), (104,0,41,98), (146,0,41,98), (188,0,36,98), (225,0,36,98), (262,0,41,98), (304,0,42,98), (347,0,22,98), (370,0,42,98), (413,0,46,98), (460,0,35,98), (496,0,61,98), (558,0,42,98), (601,0,44,98), (646,0,44,98), (691,0,44,98), (736,0,44,98), (781,0,41,98), (823,0,40,98), (864,0,48,98), (913,0,47,98), (961,0,61,98), (0,98,48,98), (49,98,47,98), (97,98,36,98), (134,98,50,98), (185,98,39,98), (225,98,37,98), (263,98,36,98), (300,98,32,98), (333,98,32,98), (366,98,37,98), (404,98,38,98), (443,98,18,98), (462,98,37,98), (500,98,40,98), (541,98,31,98), (573,98,54,98), (628,98,38,98), (667,98,39,98), (707,98,39,98), (747,98,39,98), (787,98,39,98), (827,98,37,98), (865,98,35,98), (901,98,42,98), (944,98,43,98), (0,196,54,98), (55,196,43,98), (99,196,43,98), (143,196,32,98), (176,196,44,98), (221,196,24,98), (246,196,42,98), (289,196,44,98), (334,196,40,98), (375,196,41,98), (417,196,44,98), (462,196,34,98), (497,196,49,98), (547,196,44,98), (592,196,22,98), (615,196,44,98), (660,196,22,98), (683,196,39,98), (723,196,21,98), (745,196,21,98), (767,196,41,98), (809,196,22,98), (832,196,41,98), (874,196,58,98), (933,196,58,98), (0,294,58,98), (59,294,58,98), (118,294,58,98), (177,294,58,98), (236,294,61,98), (298,294,41,98), (340,294,36,98), (377,294,36,98), (414,294,36,98), (451,294,36,98), (488,294,22,98), (511,294,22,98), (534,294,22,98), (557,294,22,98), (580,294,41,98), (622,294,42,98), (665,294,44,98), (710,294,44,98), (755,294,44,98), (800,294,44,98), (845,294,44,98), (890,294,44,98), (935,294,48,98), (0,392,48,98), (49,392,48,98), (98,392,48,98), (147,392,47,98), (195,392,44,98), (240,392,50,98), (291,392,50,98), (342,392,50,98), (393,392,50,98), (444,392,50,98), (495,392,50,98), (546,392,54,98), (601,392,37,98), (639,392,32,98), (672,392,32,98), (705,392,32,98), (738,392,32,98), (771,392,18,98), (790,392,18,98), (809,392,18,98), (828,392,18,98), (847,392,39,98), (887,392,38,98), (926,392,39,98), (966,392,39,98), (0,490,39,98), (40,490,39,98), (80,490,39,98), (120,490,39,98), (160,490,42,98), (203,490,42,98), (246,490,42,98), (289,490,42,98), (332,490,43,98), (376,490,43,98), (1059,53,92,98), (1151,53,92,98), (1243,53,92,98), (1335,53,92,98), (1427,53,92,98), (1519,53,92,98), (1611,53,92,98), (1703,53,92,98), (1059,151,92,98), (1151,151,92,98), (1243,151,92,98), (1335,151,92,98), (1427,151,92,98), (1519,151,92,98), (1611,151,92,98), (1703,151,92,98), (1059,249,92,98), (1151,249,92,98), (1243,249,92,98), (1335,249,92,98), (1427,249,92,98), (1519,249,92,98), (1611,249,92,98), (1703,249,92,98), (1059,347,92,98), (1151,347,92,98), (1243,347,92,98), (1335,347,92,98), (1427,347,92,98), (1519,347,92,98), (1611,347,92,98), (1703,347,92,98), (1059,445,92,98), (1151,445,92,98), (1243,445,92,98), (1335,445,92,98), (1427,445,92,98), (1519,445,92,98), (1611,445,92,98), (1703,445,92,98), (0,580,94,98), (94,580,94,98), (188,580,94,98), (282,580,94,98), (376,580,94,98), (470,580,94,98), (564,580,94,98), (658,580,94,98), (752,580,94,98), (846,580,94,98), (940,580,94,98), (1034,580,94,98), (1128,580,94,98), (1222,580,94,98), (1316,580,94,98), (1410,580,94,98), (1504,580,94,98), (1598,580,94,98), (1692,580,94,98), (0,678,94,98), (94,678,94,98), (188,678,94,98), (282,678,94,98), (376,678,94,98), (470,678,94,98), (564,678,94,98), (658,678,94,98), (752,678,94,98), (846,678,94,98), (940,678,94,98), (1034,678,94,98), (1128,678,94,98), (1222,678,94,98), (1316,678,94,98), (1410,678,94,98), (1504,678,94,98), (1598,678,94,98), (1692,678,94,98), (0,776,94,98), (94,776,94,98), (188,776,94,98), (282,776,94,98), (376,776,94,98), (470,776,94,98), (564,776,94,98), (658,776,94,98), (752,776,94,98), (846,776,94,98), (940,776,94,98), (1034,776,94,98), (1128,776,94,98), (1222,776,94,98), (1316,776,94,98), (1410,776,94,98), (1504,776,94,98), (1598,776,94,98), (1692,776,94,98), (0,874,94,98), (94,874,94,98), (188,874,94,98), (282,874,94,98), (376,874,94,98), (470,874,94,98), (564,874,94,98), (658,874,94,98), (752,874,94,98), (846,874,94,98), (940,874,94,98), (1034,874,94,98), (1128,874,94,98), (1222,874,94,98), (1316,874,94,98), (1410,874,94,98), (1504,874,94,98), (1598,874,94,98), (1692,874,94,98), (0,972,94,98), (94,972,94,98), (188,972,94,98), (282,972,94,98), (376,972,94,98), (470,972,94,98), (564,972,94,98), (658,972,94,98), (752,972,94,98), (846,972,94,98), (940,972,94,98), (1034,972,94,98), (1128,972,94,98), (1222,972,94,98), (1316,972,94,98), (1410,972,94,98), (1504,972,94,98), (1598,972,94,98), (1692,972,94,98), (0,1070,94,98), (94,1070,94,98), (188,1070,94,98), (282,1070,94,98), (376,1070,94,98), (470,1070,94,98), (564,1070,94,98), (658,1070,94,98), (752,1070,94,98), (846,1070,94,98), (940,1070,94,98), (1034,1070,94,98), (1128,1070,94,98), (1222,1070,94,98), (1316,1070,94,98), (1410,1070,94,98), (1504,1070,94,98), (1598,1070,94,98), (1692,1070,94,98), (0,1168,94,98), (94,1168,94,98), (188,1168,94,98), (282,1168,94,98), (376,1168,94,98), (470,1168,94,98), (564,1168,94,98), (658,1168,94,98), (752,1168,94,98), (846,1168,94,98), (940,1168,94,98), (1034,1168,94,98), (1128,1168,94,98), (1222,1168,94,98), (1316,1168,94,98), (1410,1168,94,98), (1504,1168,94,98), (1598,1168,94,98), (1692,1168,94,98), (0,1266,94,98), (94,1266,94,98), (188,1266,94,98), (282,1266,94,98), (376,1266,94,98), (470,1266,94,98), (564,1266,94,98), (658,1266,94,98), (752,1266,94,98), (846,1266,94,98), (940,1266,94,98), (1034,1266,94,98), (1128,1266,94,98), (1222,1266,94,98), (1316,1266,94,98), (1410,1266,94,98), (1504,1266,94,98), (1598,1266,94,98), (1692,1266,94,98), (0,1364,94,98), (94,1364,94,98), (188,1364,94,98), (282,1364,94,98), (376,1364,94,98), (470,1364,94,98), (564,1364,94,98), (658,1364,94,98), (752,1364,94,98), (846,1364,94,98), (940,1364,94,98), (1034,1364,94,98), (1128,1364,94,98), (1222,1364,94,98), (1316,1364,94,98), (1410,1364,94,98));

Define OffsetList
(
(-4,0), (-3,0), (-3,0), (-3,0), (-4,0), (-4,0), (-3,0), (-2,0), (-1,0), (-3,0), (-3,0), (-4,0), (-3,0), (-4,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-4,0), (-2,0), (-3,0), (-3,0), (-4,0), (-3,0), (-4,0), (-4,0), (-3,0), (-4,0), (-3,0), (-4,0), (-4,0), (-4,0), (-4,0), (-2,0), (-3,0), (-3,0), (-4,0), (-4,0), (-4,0), (-3,0), (-3,0), (-3,0), (-3,0), (-4,0), (-4,0), (-2,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-3,0), (-3,0), (-4,0), (-3,0), (-2,0), (-3,0), (-3,0), (-4,0), (-3,0), (-3,0), (-2,0), (-3,0), (-4,0), (-4,0), (-3,0), (-3,0), (-3,0), (-2,0), (-3,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-3,0), (-3,0), (-4,0), (-4,0), (-4,0), (-4,0), (-1,0), (-1,0), (-1,0), (-1,0), (-3,0), (-4,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-2,0), (-2,0), (-2,0), (-3,0), (-3,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-4,0), (-2,0), (-2,0), (-2,0), (-2,0), (-3,0), (-4,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-2,0), (-2,0), (-2,0), (-4,0), (-4,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0), (0,0));






Define KerningPairs
 ("\"A","'\"","''","'d","'l","'r","'s","'t","'v","34","67","78","7A","7a","89","A\"",
  "A'","AC","AG","AO","AQ","AT","AU","AV","AW","AY","Aa","Ac","Ad","Ae","Ao","Ap",
  "Aq","As","At","Au","Av","Aw","Ay","B,","B.","BA","C,","C.","CA","D,","D.","DA",
  "DV","DW","DY","F,","F.","FA","Fa","Fe","Fi","Fo","Fr","G,","G.","J,","J.","JA",
  "Ja","Je","Jo","Ju","KC","KO","Ke","Ko","Ku","Ky","L\"","L'","LT","LV","LW","LY",
  "Ly","N,","N.","NA","O,","O.","OA","OT","OV","OW","OX","OY","P,","P.","PA","Pa",
  "Pe","Po","Q,","Q.","QU","RO","RT","RU","RV","RW","Ry","S,","S.","SH","T,","T.",
  "TA","TJ","TO","Ta","Te","Th","Ti","Tj","Tn","To","Tr","Tu","Tw","Ty","U,","U.",
  "UA","V,","V.","VA","VG","VO","Va","Ve","Vi","Vo","Vu","W,","W.","WA","WO","Wa",
  "We","Wh","Wi","Wo","Wu","Wy","Y,","Y.","YA","YO","YS","Ya","Ye","Yi","Yo","Yu",
  "aV","ag","ao","ap","at","av","aw","ay","b,","b.","bb","bl","bu","bv","by","c,",
  "c.","ch","ck","cl","cy","dd","dv","dw","dy","e,","e.","eb","eg","ep","ev","ew",
  "ex","ey","f\"","f'","f,","f.","f1","fa","fe","ff","fi","fl","fo","g,","g.","ga",
  "ge","gg","gi","go","gr","gy","hy","iv","ke","ko","ky","l7","lt","lw","ly","mu",
  "my","nu","nv","ny","o,","o.","og","ov","ow","ox","oy","p,","p.","py","r,","r.",
  "ra","rc","rd","re","rg","ri","rk","rl","rm","rn","ro","rp","rq","rr","rs","rt",
  "ru","rv","ry","s,","s.","sw","tj","v,","v.","vA","va","ve","vo","w,","w.","wa",
  "we","wh","wo","xe","y,","y.","ya","ye","yo","yu","ze","zo");

Define KerningValues

 ( -18,  -4,  -4,  -5,  -5,  -6,  -8,  -5,  -7,  -4,  -5,  -6, -10, -13,  -5,  -9,

    -9,  -6,  -6,  -6,  -7,  -9,  -8,  -9,  -5, -10,  -2,  -6,  -4,  -2,  -6,  -3,

    -6,  -4,  -7,  -7,  -8,  -4,  -9,  -7,  -7,  -7,  -6,  -6,  -5,  -8,  -8,  -8,

    -8,  -4, -11, -16, -15, -12, -12,  -6,  -8,  -7,  -6,  -6,  -5, -10, -10,  -9,

    -9,  -3,  -4,  -5,  -5,  -5,  -1,  -4,  -6,  -6, -14, -14, -11, -14,  -6, -14,

   -12,  -7,  -7,  -6, -11, -10,  -9,  -6,  -7,  -4,  -7,  -9, -22, -22, -14, -14,

    -4,  -7,  -4,  -4,  -4,  -5,  -4,  -5,  -5,  -4,  -5,  -6,  -6,  -2, -11, -10,

   -10, -11,  -7, -10,  -5,  -3,  -4, -10,  -4,  -8,  -5,  -6,  -3,  -5,  -9,  -9,

    -9, -14, -14, -13,  -8,  -9, -13,  -6,  -7,  -9,  -6,  -8,  -7,  -7,  -6,  -7,

    -5,  -5,  -7,  -6,  -6,  -5, -13, -13, -12,  -9,  -6, -12,  -6,  -7,  -9,  -7,

    -6,  -5,  -5,  -3,  -7,  -8,  -4,  -9,  -6,  -6,  -4,  -4,  -5,  -6,  -8,  -4,

    -4,  -3,  -3,  -3,  -5,  -4,  -7,  -4,  -9,  -6,  -6,  -4,  -5,  -5,  -4,  -4,

    -4,  -4,  -3,  -3, -13, -13,  -3, -10,  -4,  -3,  -5,  -4,  -6,  -5,  -4,  -5,

    -3,  -3,  -5,  -3,  -3,  -4,  -4,  -3,  -3,  -5,  -6,  -3,  -7,  -6, -12,  -5,

    -5,  -5,  -4,  -4,  -7,  -7,  -3,  -5,  -3,  -5,  -7, -19, -18,  -7,  -6,  -6,

    -5,  -4,  -5,  -4,  -5,  -6,  -4,  -5,  -5,  -5,  -6,  -5,  -5,  -5,  -4,  -4,

    -5,  -6,  -7,  -5,  -5,  -5,  -8, -11, -11,  -9, -11,  -3,  -7,  -7,  -7,  -6,

    -4,  -4,  -5,  -3, -11, -11, -11,  -3,  -7,  -1,  -4,  -6);

CreateLayer               Main;
LayerSetImage             Main 'wogBig';
LayerSetAscent            Main 80;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (28);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 4;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 90;

SetDefaultPointSize  90;
CnMaxLeft 1701;